4 JL 4 e 
4 JL 5 ft 
4 J. © ft 

-t jl z e 
4. jl ft ft 
4 j. 3 tt 
4 2 fit ft 
4 2 X ft 
4 2 2 ft 
4- 2 3 ft 
4 2 4 ft 
4 2 © ft 
4 2 © ft 
4- 2 2 ft 
4 2 © ft 

4 2 © ft 
4 3 ft ft 
4 3 X ft 
4 3 2 ft 
4 if 3 ft 
4 3 4 ft 
4 if 5 ft 
4 3 © ft 
4 3 2 ft 
4- if © ft 
4 3 3 ft 
4 4 ft ft 
4 4 X. ft 
4 4 2 ft 
4 4 3 ft 
4 4 4 ft 
4 4 © ft 
4 4 © ft 
4 4 2 ft 
4 4 © ft 
4- 4 3 ft 
4- 0 ft ft 
4- © X fit 
4- © 2 ft 
4 © 3 ft 
"‘I- © 4 ft 
-1. © © ft 
4. © © ft 
4 © 2 ft 
4- © ft ft 
4- © 3 ft 
4 © ft ft 
4- © X © 

4- © 2 ft 
4- © 3 ft 
4 © 4 ft 

4 © © ft 


c 


i=" r: o g r ft II 


Cl 1 ft IF 


,« EtftS 


=-fte 


i o 


T R A P 4 J. 3 0 s O P E M M.2 , 4 , O , A S C X ,15J 

POKE 752,1:? "* ALREADY EKX5T5!":? •• ,, ;"MAHT TO REPLACE IT CY/NI ?" j ! POKE 764,255 

I = P E E K C 7 6 A J S IF I = 2 15 5 T H E N 4 X 6- O 

IP O K E 7 6 A , 2 S 55 s I F I < > 4 3 'll H EM K F = JL 3 2 * " « " ’ : C L. O 3 E »2 iGDTO 3 7 2 0 

? " VE5" V 

C L O 3 E **2 3 T R A P 4 7 X O s O P E N »2 , 8 , O , A Stl, X 4 J 
1 = 480 :: IF MODE = l THEM 1 = 1920 
PUT t*2,MODE 

P U T IT 2 ,5E 3 C S 

IP U T «2 , MH T : P U T **2 , E SCiP U T **2 , A L E C ! P U T t*2 , Ft IL K 
E O R . J = 0 T O I : P U T tl 2, PEEK tSA + JI : NEK T J 
P U T **2 , X. 5 Si 

R E m niCI3flOI3HSBIlMMIBBt33131 

C L O 3 E »2 : T R A P A O O O O : 2 * " MB t " T ^ =1 ^ ’ >i JIF = 60:G O 3 US 2 7 3 0 

POKE 704, 255 S TS=9S ! TE3C=E3C S TSESC=SESC : TMHT=MHT S MODE=l-HODE ! TBLK=BLK 3 TALLC=ALLC S GOSUB 
X O 3 O 

1 IF TSESC = X THEM GO SOB 4 3 40 

IF THHT=B THEM HHT=X : GOSUB 2700 
IF TE3C=1 THEM E3C=© 3 GOSUB 2000 
I F T A l. L C = X T H E M A IL LC = B:G03UB 2 3 7 O 
I F T B L K = X T H E M B «... K = X s P O K E 7 X 2 , O SPOKE 7 0 4 , X 4 

5S = T$ s POKE 53768 , O S POKE 53775, 3 SPOKE 204, 0 3 POKE 203, K2 3 GOTO 240 

2 C II fi :S C 2 8 3; C H R S C X 56J ; " EM T E R H U MB E R OF FILES"; 

TRAP 4350 S INPUT J 5 IE J <X OR J>A THEM 4 35 0 

T R A P 4 7 X O 3 O P E M *#2 , O , O , " " l> S P I C T U RE.???" 

FOR I = X TO J 3 INPUT »2 J A$ 3 NEKT I 3 CLOSE »2 : AS CX, ZJ " 

AS (IS , 10) ="■,•* 

POKE 752,11? ■" LOAD ") AS (3, X3) ; " CY/M) ?") SPOKE 704,255 

1 = PEEK (764) 3 IF 1 = 255 THEM 44X0 

POKE 704, 255 3 IF I <>43 THEM KF = Xs? "5" 3 GOTO 3720 

2 *• YES" 3 ? *“ LOADING " J A© (3 , 13) 3 TRAP 4710 i OPEN ttZ, 4, O, AS (1, 13) 

GET IT 2 , MODE 

GET *#2, TSESC 

13=480 3 IF MODE = X THEM 1 = 1920 
GET **2, TMHT 
G E T **2 , T E 3 C 
GET «2 , TALLC 
GET »2,TBLK 

IF O R J = O T O 1.3 G E T #2, A:T 6 C J + X , J + X )=CHR$(A) 3 M E M T J 
F O R J 3= I + X T O X © O O 3 T 5 C J , J) = " 4F " " 3 M E K T Jl 

r e m itiras* 

C L O 3 E « 2 ! T R A P 4 O 0 O 0 3 M O D E = X — M O D E 3 G O 3 U B X 630 S POKE 7 0 4,255 
IF TSE5C=1 THEM GOSUB 4340 
I F T M H T = O T H E M M H T = X 3 G O 3 U O 2 7 0 0 
IF TESC=1 THEM ESC = 0 3 GOSUB 2000 
IF TALLC=1 THEM ALLC=0 3 GOSUB 2370 

1 IF T B IL K 3= X T H E M O L. K = X S P O K E 7X2, O 3 P O K E 704, .14 

3 $ 3= T & 3 P O K E 5 3 7 O O , O 3 P O K E 5 3 7 7 5, 3 SPOKE 2 0 4 , O 3 P O K E 2 O 3 , K 2 : G O T O 24 0 

C L o 3 E »2 S 2 S ? S F 0 R I = O T O 5 3 2 C III RSC2B);" • S SOUND 0, X2X, 10,10: GOSUB 2730 S 2 

CHR$(28);" DISK ERROR ** 

3 O U M D 0 , 8 4 , X O , X O s G O 3 U B 2730 S ME K T I 3 3 O U HD 0,0, 0,0:2 CHRS (20) ; 

■ J = P E E IK C X. 3 5 Ji 3 I F J < > X A A T H E M 4 O 5 0 

2 " * V O II..I R D 1 3 K 1 3 M R I T E P R O T E C T ED” S 2 " O R M O D X 3 K 1 3 A V A I LADLE ! *• J3 : J I F = 2 4 0 : GOSUB 27 30 

3 R E T U R M 

I F J < > X 3 O T H E M 4 6 8 0 


4 6 e 0 

4- 0 7 0 
4- 0 O 0 
4- 0 O 
-1. 7 0 0 
4- '7 .1. 0 
4 ‘7 7 0 
4 7 3 O 
4- 7 4- 0 
4 7 5i» 0 
4 7 t» 0 
4 7 7 0 
4- 7 n <0 
4 7 !;;*• 0 
4- O O 0 
4. 0 .1. O 
4 0 7 O 
4- 0 3 0 
4 0 4- 0 
4 0 55 0 
4- 0 (> 0 
4. 0 7 0 
4 0 B 0 
4 0 H? 0 
4 0 0 0 
4- ^ .1L 0 
4- ^ 7 0 
4 1.? 3 0 
•4 0 4- 0 
4 1? 55 0 
4- -I* 0 0 
4 0 7 0 


■ROGRAM S 


Ol IAR\ Jr 


Ec^i: 



1 1 . 


H F = e s ? " * V O UR O X 5 K O R X V E IS OFF"*:? " " OR DISCOHNE C T E R O R 0 X S K E T T E" : ? " ■ 13 N O T F O R M A T T E 

R ! " " J 

J X F = 2 4 0 : G O 3 U B 2 7 3 0 s R E T U R H 
X F J < > X © 7 T H E N 4 7 0 0 

? *■ FILE IS LOCKED ! s ? >• Use DOS to unlock."; :JIF = 24fl:GOSUB 273©! RETURN 

? " * WL ^ g lB i M i ri jMa" "JO:? " " RLE A S E C H E C K V O U R RISK AM D D R X M E ! " " J : J X F = 2 4 0 s G O S U B 2730: R E T U R M 

K F = X : G 0 S U B 4 6 X 0 s ? : P O KE 7 X 2,1 4 - B L K -W- 14 i GOTO 3720 

? C H R S C 2 8 5 JCHR 5 C X 5 6);" E N 'T E R N U M BER OF FILE:") 

TRAP 4720 : INPUT J s IF J<i OR J> A THEM 4 72 0 

T R A P 4 7 X 0 S O P E N »2 , 6, 0, "D : P X C T U RE.?? ? * * 

FOR I = X TO J r. INPUT t*2 J AS : NEXT X : CLOSE 1*2 ; AS CX , 2) ="D : *" 

A S C X 0 ,X0)=".’’ 

POKE 752.XS? "" DELETE ■■ J AS C 3 , X 33 J •• C V/'N J ?"• J : POKE 764,255 

X = P E E K C 7 © 4 :» s X F 1 = 25 5 T H E N 4 7 8 0 
P O K E 76 4,255: X E I < > 4 3 T H E N 4820 

? "" YES” : KIO 33, »2 ,0,0, AS CX , X3J : TRAP 40000 

? ■ " Kira 1X301 HI HB3 •’ I! I iS *5 -*s j( SB ” : J x F = 60:G03UB 2730 • 

K F = X S ? ■ * 5 ” : P O K E 7 X 2 , X 4 - B L K ¥t 14 ! G O T O 37 2 0 

E N i:> 

RATA O „ O , X 0 , 35 , 0 , 40, X ,33,0, 50, X , 33 , 0 , 35 , X , 52 , 0 , 37 , X , 50 , O , 54 , X 
RATA 6 , 8 , 4 , 38 , X , 53 , 0 , 46 , X , X , 0 


B> A T A 

5 

j* 

7 4 

7 

5 

7 

48, 

X , 5 0 

7 

X 

7 

37 

7 

X 

7 

5X 

7 

X, 

51, 

X 

» A T A 

55 

# 

3 7 

7 

5 

7 

55 X , 

0,52 

7 

0 

7 

33 

7 

0 

7 

50 

7 

0 7 

52, 

0 

l> A T A 

O 

7 

0 7 

4 

7 

0 

7 0 j, 

53 , 0 

7 

57 

7 0 

7 

0 

7 

0 





l> A T A 

O 

7 

16 

7 

4 

7 

7 S 

0,33 

7 

0 

7 

4 0 

7 

0 

7 

77 

7 

0 



l> A T A 

0 

7 

7 4 

, 

4 

7 

0 , O 

7 58, 

O 

7 

00 , 

0 

7 


7 0 





D A T A 

0 

7 

3 7 

7 

4 

7 

3 X , 

0,12 

7 

0 

7 

51? 

7 

0 

7 

X 5 

7 

0 



l> A T A 

4 

7 

16 

7 

X 

7 

X X 3 

7 X 













DATA 

4 

7 

7 4 

7 

X 

7 

X 0 B 

j. X 














L2=XB I SESC=X-SESC i T2=ADR (DL4$J : IF MODE=B AMR SESC=X THEN T 2= ARR CRL 20$) i L 2 =X2 
IF MORE=X AMR 5E5C=X THEM T 2 = A R R C R L2 2 S J : L 2 = 2 0 
R O MS = 32 » 4 B*MO R E + ««S E S CM- CSE5C + MO R E J 
A = M S R C A R R C MO M Sj ,T2,DL2,L23 : R E T U R M 

END OF LISTING 



:: ‘i 0 13 R: ft M 


CHARf 


f ,( 


IM ... B ft S 


P ft f 3 




2 — 




— 7 + 0 ( 3 


0 

X 

R E Ml 
ft E M 

•M- 



Mr 

2 

R E M 

M 

C H A R A C T 

E R <9* F II H 

Mr 

3 

R E M 

■Mr 



M 

-1 

R E M 

M 

b y B p u c © 

E„ Canpbell 

M 

5 

R E M 

•:hr 



Mr 

e 

RE Ml 

■Mr 

MER 5 ION A . 0 

DATE: 971/83 

Mr 

V 

REM 

M 

COPY R I G II T 

II c :» A. O O 3 

M 

B 

R E Ml 

■Mr 



M 

3 

R E Ml 

************«H€****IHHHHHH«HHH(« 


S: 0 0 R E M 

2: A 0 G R APHICS 0 ; CLH SPOKE 712,14:POKE 710, .14 : POKE 53768, O : POKE 53775,3 

220 POKE 789, 14 : POKE 752,1 
230 BCl = 0i JIF = 7’iGOTO 2760 
24.0 rem 

2S0 POKE 764, 2 55 S POKE 53279, 7 S POKE 657, O ! TCAPrO : POKE 77,0 

260 POP ! A = PEEK (53279) ! IF A = 7 THEM 2 0 O 

2 7 0 O M A + A GOSUB A690, A99B, A640, 2240, 2350, A07O, 238 0 : P O P 

200 POP : IF PEEK tA9) > 55 THEM HODE = liGOSUB 1690 3 POKE 532 4 0, 0 S POKE 53249, 0 : POKE 

0 S GOTO A A 7 0 

200 5TK = PEEK (632} : 5TKA = PEEK C633) : IF 5TKOA5 OR 5TKAOA5 THEN G05UB 2OA0 

300 STK=PEEKC644) ! 5TKA=PEEK (645) SIE STK=0 OR 5TKA=fl THEM GD5UB 900 

3AO B=PEEK C764) ilF 0=204 THEM 37 A 0 

32 0 IF A = A56 THEM GOSUB 4940 S 6 0 SUB 620 s GOTO 2 SO 

330 IF A=AA9 OR 0=183 THEM GOTO 1150 

3 4. 0 I IF A = A 0 2 T H EM GOSUB 2 4 7 0 5 G 0 T O 2 S 0 

3SO IF A > A O A THEM 260 

360 POKE AO , O : Z2 = ASC (B764S EAU , A + A3 .7 

3 7 O O M Z 2 G OTO 2 S 0 , 1080, 1090, AAO0, A A A 0 , 1120, 2 4 7 0, 2520, A A 3 0 , A A 4 0 

3 0 O E 3 = A S C t C 7 6 4 S t A 4- A , A A J } 

300 IF A > 6 3 AND A<A28 THEM TCAP = A 

40O GOSUB 4.20 ! A = 135 5 GOSUB 620 

4 A O G O T O 2 S 0 
4 7 0 R E M 

4 3 O S T A R T = S A + V •* C O I. 5+K:REM START ADOBE55 FOR DISPLAY 
4 4 0 R = I M T C P E E K 1 5 3 7 7 0 3 *A 0/A7 + 30J 


45 0 
4 6 O 
4 7 O 

4 0 O 
4- O O 
50 0 

5 A O 
520 
530 
5 4 O 

55 0 

56 0 
5 7 O 
5 0O 

5 O 0 

6 0 0 
6 A O 
6 2 O 
6 2 5 


IF ESC = A THEM 760 
C H A R = C H A R S E T 4- E3*8 


IlF CHAR5ET = 57B56 AMD tE3<33 OR E3> 5BJ THEM CHAR = CH AR--SA2 
CS=0sIF CHARSET=57856 THEM CS=A 
I F T C A P = A T H E H C II A R =57344+ E3*8 S CS = 0 
A = A i> R H1U5SJ A s A = PEEK tA + EI-32 + 7*C5) 


IF E3>32 AMD E3<40 THEM SOUND O , A , AO , 5 : SOUND A,A+A,AO,5 

FOR E2=7 TO O STEP -A 

E 4 = 7 M U p + E 2* C A -- 2*HJ P 3 

K=PEEK(CHAR+E2) IlF BMO=0 THEM 560 
K = U S R t A D R C B HD S J , K J s K = PEEK (21 3 1 
P O K E S T A R T + E 4KC O L S , 2 55*1 M « ♦ K* (A- 2«T M O J 
I F E 3 < 3 3 O R E 3 > 3 O T H EM SOUND O , R T A 0*E 4,A4, O-E 4 
III E K T E 2 

I IF E 3 > 3 2 A N D E 3 < 4 0 T H E M JIF = 5 : G O S IJ B 2730 

S O U M D O , O , O , 0 s S 0 U M D .1. ,0,0, 0 


RETURN 

V I = V L*2 + 5 2 8* C MO D E + A J+A: P MR 0MS (VI, YI + A5) =BCURS ! POKE ADR C P MRAMSJ+Y T T A 5 
P MR A MS C Y I T R 5 T , V I + R S T + 15J = B C UR$ i POKE A D R C P MR A MS J *• Y T + RST + A5,© 


0 


53250,0!BCA= 


f- f't d 



F=" R o C3 Ft A M r: C H ARI J | V| - 3B F^ i . S 


7 . 


©21 


P MR A MS CVI+R5T+B5T, VI+H5T+R5T+I5) =BCURS : POKE ADR (PMRAH$) +VHR5T+R5T+15 o 

t- *=• .rt, — n u“ i n ihji i_i- — - j. — ... * 


©3© 

X F 

ft = X 4 2 T H E M 

V = Y — 8 8 G O T O 

©7© 

© 4 © 

XF 

ft = X 4 3 THEN 

Y = V T 8 8 GOTO 

C>7© 

650 

IF 

A = X 3 4 T H E M 

H = K — X 8 G O T O 

©7© 

© © © 

I F 

A=X35 THEN 

K = K -I JL 


©7© 

IF 

M > = C O L 5 T 14 E N K = O s Y s= Y +■ 8 


680 

XF 

K < O T 14 E N M = 

C O l_ S — 1 8 Y = Y - 

© 

© © 0 

XF 

Y> RONS THEM 

Y = 0 


7 © © 

XF 

Y<0 THEN Y= 

ROMS 



7 JL © 
7 2: 0 
725 
727 
73(1 
7 4 © 

750 
7 6 0 
7 7 © 
'7 © 0 
7 3 © 
© © 0 
© .1 0 
©20 
© 3 0 
© 4 0 
© 5 0 
© © 0 
© 7 0 
© © 0 
©©0 
3 0 0 
© JL 0 

920 

©30 

© 4 0 

© S 0 
© © 0 
©70 
© © 0 
©©0 
.1 0 0 O 
X 0 JL 0 
X 0 2 0 
X 0 3 0 
X 0 4. © 
X 0 S 0 

X 0 6 0 

X O 7 0 


H=X6«H+48 K»8*MODE:POKE 5324© , H : POKE 5324©, H : POKE 53250,H 

V l_ — Y : VI~Y*2I-520*CH0DE + X) +X : PMRflM$ CYI, YI + X5) = C U R $ n POKE ADR CPMRAM$) 
P MR A <; V X 1 R S T - v x R ■S T +X5) = C U R2S : POKE AO R C P HR A IMS 5 ft YI + R5T + X © A 
PMRAMS CYI+RSTtRST, YI+R5T+R5T+X5) =CUR3$ : POKE 
R E T IJ R M 

Z2=PEEK (ADR (5S) +COLS*V+B»COL5J 
5,Z2 
RETURN 

IF E3>123 THEN 250 
CHAR=E3#8+8 
IF TCAP=1 THEM BOO 

I F C H A R S ET =57856 AND E3>32 AND E3<59 
FOR E2 = 7 TO O' STEP — I 
A = A © c C E S C S t C H ft R - E 2 , C H ft R -• E2) ) 

E 3 =: 7«U P + E2* C JL - 2-M-U pa- 
ir BMD = 0 THEM 850 

A = USR (ADR (BHDS) , ft a j A=PEEK C2JL33 
POKE 5TART + E3*COL5,255*IHU + A*a-2*INU) 

S O IIJ ND O , R + JL O-M-E 3 , 14,9-E3 
N E M T E 2 
SOU MO 0,0, 0,0 
R E I U R M 

POKE 19,0:IF STK=X THEM 1040 

A=PEEK (203) ! POKE 203, O ; DL = PEEK (568) +256WEEK (-561) +4- : JlzPEEK (DL) 


ft OR CP MR ft MS 3 +YI + R5T + R5T + 15, O 
i S (C O L s-*tv -I .JL , C O L S-M-y + 8-W-C O L S a = WS SPOKE ADR (SS) TCOL5*V+ 8J*C O L 


THEM C 44 A R = C H AR + 512 


K-K2*256:L=l:EOR 1=100 TO 1500 STEP TO t J 


1,J+K,10,U:NEKT I 8 SOUND 0,0, 0,0 


980 8 F 1 — 700 s F 2-1506 : 5 OS II B 960 : F1S1000 : F2 = 2100 : GOSUB 980 S F 1 =1500 : E 2 
O , O , O „ O : SOUND 1 , 0 , O „ O : POKE 203,A 


2 5 © 4 O + 4 O 4* MO »> E 

K2-INT t K/25 © ) 8 KT 
T (T/190) 

S O II M O O , J , Jl. O , U : sou H d 

53 2 7 9 , O 8 M E H T T 
F T = 7 O O 8 F 2 = JL O 0 O 8 (5 OS U B 
= 2 50 0 s GOSUB 9 80 

POKE DL + X , J 2 8 POKE DL , Jl 8 BOUND 
I F S T K T = X T H E M R E T II R M 
GOTO 1040 

K = OlFOR I = E X TO E2 STEP 5 8 J = IHT (I/XO) 

SOUND O , J , 4 , U s SOUND X , J -50 ,8,0: IF K <4 

K = O 8 X F IL = X T H E N P O It E D L + X , K2 8 POKE D L 

T F l. = O T H E N P O K E D L 4- X,J2:POK E D L , J X 
L = X-L 

K = K + A 8 MEHT X 8 RETURN 

ft 8= ft D R C 5 T ft R S Ji 8 S T fti R T = S ft + V -M- C O 1- S T- K 8 I F K = LK AND V = LY 

F O R I = 0 T O 7 8 P O K E S T' ft R T T I*C O L S , P E E K t ft + X a 


8 J2-PEEK (DL + X) 8 KSJ1 + J2K 
TNT (I/X0) 8 K = IMT (J740) s 0=2+IM 
SOUND X, 0,O, O: FOR I = X TO 40 8 POKE 


M = XNT (28-J7XO) 5 IF U> 7 THEM 
THEM 1O30 
KT 


0 = 7 


S O U M 1> O , 


J X. 


J X. T X 


jl e , e s s o u m d 

S O II H D 0 , X. 6 4 , X e , 8 8 G O S U B 2 7 3 O 


j X © ji © 

: NEKT 

X : 

: SOUND 

© 

FOR X 

“© TO 

© 

STEP - 

1 


T H EM RETURN 

M E K T Is F O R 1= 200 TO T 3 O 0 STEP X O s J X = X NT (1 7 X O 
, 0,0 8 SOUND X, O, O, O s LK = H 8 LY = Y 8 RET U R M 
X 8 S-OUINID O , X64 , XO , I 5 JIF = 1 s GOSUB 2730 8 HE 



PROGRAM = 


C H I F t t jn - BA S 



X 8 S e 
.1 0 9 0 
X X 0 O 
.1 .1 X 0 
X X 2 0 
1130 
X X 4 0 
1150 
1152 

X X 5 4 

X JL 5 5 
.1 X 5 6 
X X 5 O 
X X 2 0 
X X 7 5 
X X 8 0 
X X 9 0 
X 2 0 0 
X 2 X 0 
X 2 2 0 
X23B 
X 2 4 O 
X 2 5 0 
X 2 6 0 
X 2 2 0 
X 2 S 0 
X 2 9 0 
X 3 0 0 
1310 
X 3 2 O 
1330 
X 3 4 0 
X 3 5 0 
X 3 ti O 
X 3 2 0 
X 3 8 0 
X 3 9 O 
X 4 0 0 
X 4 X 0 
X 4 2 0 
X. 4 3 0 
X 4 4 0 
X 4 5 0 
X 4 5 5 
X 4 6 0 
X4 20 
X 4 8 0 

X 4 8 5 
X 4 9 0 
X 4 0 S 
X 4 9 7 


iO 


S = , ’XlnH: ,H":G05UB 2300 : POKE 204. 

MHT = 0 THEM C$ = "M s GOSUB 2300: POKE 704 


MHT =® THEM POKE 204, 88: POKE 242, 88: POKE 


H T X s IB M l» = X — B M P ; G O TO 2 5 0 
1KW=1-IHV S GOTO 250 
C H A f t S E T = 5 8 3 3 6 — 8* A s G O T O 
G O S U B 2 2 0 O S G O TO 2 5 O 
GOSUB 1510 ! GOTO 250 
G O 3 U B 2 8 0 O : G OTO 250 

3 IM I> = X •- 5MO : P O K E 2 0 3, 5H l>M 1 62 : GOTO 250 
A = O : K = 0 : V = V + 8 : G O 3 U B X510 : GOTO 2 5 0 
B L K = X - B L K s P O K E 2 X 2 , X 4 - B L K«X 4 
IE BLK-O OR MHT=1 THEM C 
E 2 0 6 , X 3 8 : G O T O X X 5 6 
X F BEK = X A IM P 
OKE 242,88 
X E BLK = X A M I> 

GOTO 250 

A = USR C A l> R CHOV$) , T2, I>1 2.1 2 7 
bee, 

#> E 4 S C 3 , 3 H = C H R $ C P MX J ! DL4S C4, 43 =CHR$ CDMZJ : T 2 = A [> R (|> |_ 4$J 

P O K fc 709, X 4 : 2 ""•"S’" ! P O K E 6 5 2 , 6 5 P O K E 656 , 0:2 > < c H A R A 

POKE 652, 3: POKE 656, X:2 "by Bruce E. Canpbe 1 l 

p O K E 85 2,6! P O K E 6 5 6 ,3:? "W 
R E 3 T O R E 4 8 4 0 ! P O K E 53248,0 s P O K E 
C H A R SETs 5 2 3 4 4 : T C AP-0:ESC = 0 
POKE 203, X 62 

EOR I = X TO 10: REAP K , V , M 
FOR J=X TO M : REAP E3,IHO 
XE F=X THEM IHUsX-IMV 
G O 3 U B 4 2 O ! M = M -I- X 

X F P E EK (532 2 95= 6 T H E M P OP : P o P 
GOSUB 2230 

MEKT J!IF 1=2 THEM C H A R SE T = 52 8 5 6 
IE' 1 = 4 THEM CHARSET = 5234 4 : E5C = X 


— 8 - 


80 : POKE 242, 80: POKE 205 , 84 : POK 
88: POKE 205, 82: POKE 206,X36:P 


205, 82 : POKE 206, X36 


RETURN 


LZ: 
C 1 


: X O ; 
E 


USR (APR C MO U$5 
■V F U N 


T2 , PE2 ,LZ) 


C O P V R X G H T C C) X 8 8 3 « j • T 2 = X 

53248,0: POKE 53250,0: POKE 22 


POKE 

O 


208 . 


GOTO 1420 


U P = O 


: 5 2 8 5 6 


POKE 203, X66 


GOTO X 4 2 O 


GOTO X470 


X F X = 8 T H E IM C H A R 5 E T 
H E H T X ! K = O : V = 0 : F = 0 
G O 5 U B 235 0! P O K E X 9 , 0 
GOSUB 2380 

XE PEEK (19) <2 THEM 1460 
FOR Z = X TO 5 I GOSUB X630 
IE PEEK (532795 =6 THEN POP 
M E K T Z ! J X E = 8 O I G O S U B 2 2 3 0 
E O R 2' = X T O X. O ! G O S U B X 9 8 O 

X F P E E K 1 5 3 2 7 9 i = 6 T H E N P O P 

IM E H T Z : . J X F = 8 8 ! G O 3 U B 2 2 3 O 

T 2 = x 2 + X ! X F T 2 - X N T C T 2 /' 2 .7 4* 2 = O T H E N 
I F T 2 -- X IM T C T 2 7 3 7 * 3 = 0 THEM E = X 

P O K E 2 O 3 , 0 ! G O S U B 2 3 5 0 ! P O K E 2 2 , O : S $ c X 7 

3 128811 =SS fXJ S SS C27 =S© ! M$ = S$ s H = 0 s V = P 
I F 1 * E E IK (532 2 9 7 < > 8 T H EM X 3 5 0 
MODE=X : GOSUB 1690 

P O K fc S 3 2 2 7,2s P 0 K E 5 58, 4 2 + X 6 *MO PE : POKE 

4 9 , 4 8 s P O K E 5 3 2 5 7 , X MO P E 

P O K E 5 3 2 5 0 , 4 8 S P O K E 5 3 2 5 8 , X - MO P E 

Z f.Z ZZf * * * C MO ° E + A 31 : P MR * M* * V X , V I X X 5 7 =CUR$ : POKE A P R f P MR A MS 7 + V X + X 5 , O 

MIR A IMI-ii* t ’» I + R 3 II , V X + R 3 T + X 5 7 = C U R 2 5 : P O K E A P R C P MR A MS 7 + V X -t R S T X- X. 5,0 

P MR A Mali C V I R S T + R 3 T , V I + R 3 T + R 3 T + X 5 7 = C U R 3 S I P O K E A P R C P MR A Mali 7 -t V X + R S T + R 3 T + X 5 


UP=X-UP 


L H 


XF HH T = 1 THEM SS CX7 =-<U” 

X ! LYs-X : POKE 203, X62 ! GOTO X2XO 


53 2 4 8, 48 I POKE 623, 33: POKE S 3 2 5 6 , X -- MO P E ! P O K E ti 3 2 


X 5 0 0 
1 55 X «» 
X 5 X 55 
X 5 X 7 
X 35 Z (} 
X530 
X 35 4 0 
X 3:5 5 0 
-1.. 3:5 G 0 
X 55 7 0 
X 35 0 B 
X 55 9 0 
X <5 0 (I 
X G X 0 
X f 5 X 55 
X 6 X 7 
X6Z 0 
X 6 3 0 
X 6 -I 0 

X €> 55 0 
X <5 €5 0 
X €5 7 O 

X G » 0 
X €> 9 0 

x y o 0 

X 7 X (5 

X y X 55 
X 7 Z 0 

X730 

X 7 4- 0 

X. 7 55 0 

X 7 6 O 

X. 7 7 IX 

x 7 e 0 

.1 7 3 O 
X G 0 0 
X 0 X IX 
X 0 Z 0 
-X 0 3 < X 
X 0 4 0 
X 0 55 0 
X 0 S it.li 
X 0 7 e 



:OGRAM ” 


Cl l# 2 fcF 


.‘ {-’•I - .O iPh E 


" iPk 1 


bC 




IP' O K E :2 ® 3 , X 0 2 s G O T O 2 0 0 

V X ~ V 1 - * 2 * 5 2 * M *; M ° D """ 1 1 *• 8 P M p p M ® « v X , VI + 151 =BCUR$ : POKE APR C p M R am$] +■ v X + X 5 g 

PMB ft M •* c v 1 R s T • v 1 + R -> T + iS) =BCURS : poke AD R C PH R AM$) + YX + R5TU5, 0 

P MR A MS C V I + R S T + R S T , V I ♦ R S T + R 0 T * X S) -BCURS ; P O KE ADR CP MR 0 MS I I V X +■ RST + RST + 15,8 


:m f 

0 = 142 

T H E M 

V ::: V — 8 3 GOTO 

X 55 GO 

j:f 

A = 14 3 

T IB E N 

V = V + 8 3 G O T O 

J- 55 G 0 

IF 

A = 134 

T H E N 

K = K-1 3 GOTO 

X 55G0 

IF 

0 = 135 

T H F M 

H = H +■ A 


X F 

H > = C O E 

S T H E M K = 0 : V = V + 8 


XF 

H<0 THEM K= 

COES- A 3 V = Y — 

© 

X F 

V > R O MS 

1 H E M 

Y = O 


X F 

V<0 THEM V= 

R 0 ('IS 



H = 

YE 


A 6«K * 4 S K»B*MO I> E 


0 


ADR tP MR A MS 3 +YI + R5 T+- R5T + lS,fl 


5E5C*80*(5ESC+S*MODE) i FOR X=A TO 


SE5C*80* t3ESC+3*MODEJ : FOR I=A TO 


a ; TS = SS : SS CA , A-JJ = TS CJ + 


0 : TS = 5S : SS tJ+A , AS =TS C A . 


SSS9=PEEK(5S9) SPOKE A9,Oi5HD=A 


:A:COLS=AB*tMODE+AJ :UP=8 SPOKE 2 


52, A. S POKE 82, Os POKE 658,0 


C IJ R 2 S = * 


= : rst = A28 

< < ■<! 77.4 4 4 Zf<<W : CUR3S = ,a 'R'¥''V'V'V'S$‘**'4ii»*'ir<r''p 


POKE 53248, H S POKE 53249, H S POKE 53250, H 

_ ,-J * LI * Z * 5 Z °‘ M ' C MO ‘ >E + JL: » * 1 ■ P MR A MS Y I , VI + A5) “ C U R S S POKE ADR CP MR A MS 3 + V I + A 5 

P MR A MS CY.X + R51 , YI + R5T + A5) =CUR2S s POKE ADR C P MR A MS 3 +YI+RST+A5, O 
IP MR A MS C V A A- R S II A- R s T , y X + R5T + R5T + A5) “CUR3S s P O K E 
R E T U R M 

r e m 

J = AB + 10»MODE S A = 40fHA2O0*MODE; + 

A , A J S S S C A - J + A , A 3 = T S C A. , J) 

J I F = A 5 G O S U B 2 7 3 0SHEKT I S RETUR M 
R E M m ;S M 1SEI SOI w wma sra Has* 

J-A0 + A0»MODE S A =400+ 1200«MODE + 

R j 7 : s S C A, J) = T S t: A - 0 + A,A) 

J I F = A 5 GOS U B 2 7 3 O s M EHT IiRETURH 

P O K t 5 3 2 4- 8 , 0 S P O KE 53249,0 : POKE 5 3 2 5 0 , 0 s R E M H mTS ’* 1 * I 'd Ni 4-4 4 N 
S E S C -- 0 S MO DE = A — MO 1> E IR O MS = 32 + 4 O+MOD E + 8*+s E S C+c C S E S C +• MO D E 3 
POKE 203,162 

GRAPHICS 4 + 2*MODE S K = 0 3 C = 0 5 EA. 

IHU = 0 S ALEC = 0 s E5C-0 ■ KE = 0 

C IJ R S = ” < b| J 3IJ 3! ; iOJag ||:b<" s CUR2S = "»<4 4 zz< M44ZH <■¥■ 

X F MO D E = A T H E H CURS = " < <BBI3M33IH IBB < < 

W* 3 R ST = 2 58 

IP O *C E 5 4 2 8 6,A92s M HT=0 s POKE 
0 K E 7 O 5 , 0 4 s P O K E 2 0 8 , A 3 8 

ll> E s= P E E K C 5 6 0 3 +• 2 5 6»P E E K C 5 6 A 3 +4 ! E O IR X = D L + 8 
K E 5 A 2 , ME M4 3 P O K E 5 A 3 , ME M3 
P a K E D L , ME M2 s P 0 K E R E +■ A , ME MA SPOKE 
3 P <5 K E 7 0 4 , S O 

0 ** MODE 5 ZX = t,f>n c:MDAS:j : Z2 = IH T tZA/ZSej : ZA = ZA-Z2*256 3 DL4S (3,33 =CHRS (Z13 

-I. .j — i|_ r || r ** izzj 

RE4S (9,93 =CHRS CREEK (DL2 + 83 3 : RE4S (A0,A03 =CHRS (PEEK (DL2 + 93 3 3 Dl 20$ C A A 
2 S C A 9 , 2 0 J = R E 4 S C 0 , A 0 3 

»> L 4 S C A , A 3 =3 C H R S C 9 * 2«MO BE) 3 T 2 = ODRCDL4S) 3 L 2 = A 0 
IP O K E A 6 , A A 2 3 P 0 K E S 3 7 24, AA2 3 POKE 58fl,A 

P O K E 2 O 0,23 P O K E 7 A O , A 4 3 I F F E A G = 2 THEN GO S U B A A 8 O 
P MR A MS « A 3 =: • • » s P MR ftj MS C 2 0 4 8 3= P MR A MS C A 3 3 P MR A MS C 2 3 

F O R X = A T O 6 3 A = DEC (IJ 3 D L S CA, A3 =**x"" 3 NEK T 
V = 0 3 V L = O 3 HH T = A - MH T : 3$ (1) ="f<* : I F HH T = A 

SS (2081) =5$ Cl) 3 5$ C 2 3 =5$: MS = SS 
P 0 K E 5 5 9 , S 5 5 0 3 T C A P = 0 : C H A R S ET =573 4 4 
XF FLAG <2 THEN 18913 

P O K E 5 3 2 2 7 , 2 3 P O K E 5 5 0,42 + A 6»MO B E 
4 9 , 4 8 3 P O K E 5 3 2 5 7 , A — M 0 D E 
P 0 K E 8 3 2 8 0 , 4 » 3 P 0 K E 5 3 2 8 8 , A - M ODE 


550, O : BEK = 0 3 POKE: 205, 2 M MODE 3 POKE 242, 0O 3 LX: 


LV = — A 3 BMD = 0 


TO DE + ROMS STEP 8 3 POKE I, A37 + 2*HODE 3 MEKT X: 


PO 


8 8, ME M2 3 POKE 80, ME MA s POKE 7 A 2 , A 4 — A 4*B E K 3 POKE 


208 , A 20 
D L 4 S C 4 , 


A 2 3 = D E 4 S ( 0 , A 0 3 3 DL2 


: P MR A MS 


I 

THEN 


SS CA) 


•U" 


POKE 53248, 48 3 POKE 823 , 33 3 POKE 53258 , A--MODE 


P 0 KE 5 3 2 


X. O 7 55 


X 0 0 0 
.1 O 0 5» 
1 0 0 7 
.1 0 9 0 
X 0 0 0 

1 V JL 0 
JL 9 X O 

.1 0 3 0 
JL 3 -* 0 
X 9 5 0 
X *J f> 0 

X 3 7 it* 
X 9 0 0 
X ■» 0 

2 0 0 0 
2 0 X 0 
2 0 Z 0 
2 0 3 0 
2 0 4 O 
2 O 5 0 
2 0 €» 0 
2 0 7 0 
2 0 0 0 
2 0 9 0 
2 X 0 0 
2 X X 0 
2X2 0 
2 X 3 0 
2X4 0 
2 X 5 0 
2X00 
2X70 
2 X 0 O 
2 X 3 0 
2 2 0 0 
2 2X0 

2 22 0 
2 2 3 0 
224 O 

2 20 0 ' 
2 2 0 0 
22 7 8 
2 2 0 O 
2 2 O 

2 3 0 0 
2 3 X 0 


F"“F:OE5FiAM : 


O H Ft 1^ ,M__ E=t AS 


F - a e 


- 6 ■■ 


■ 8 - 


+ ' _1 S PM,,AMS - VT + I553 =CIJR$ : POKE APR CPMRflM$) +YI + 15 , O 

II- M R A M j- C » I * R -■> 1 t V -t •*' R S T + .1. S) -CIIR2$ : POKE A I> R C IP M R A M S 3 -1- V X + R 3 T 4- 1 *> 0 

R FT u RN ' V 1 + R S T + RST# V X + R S T + R 3 T + 1 5,=c ° R3S SPOKE ADR(PHRAH$) + V X + RST + R5T + X 5 , O 

?LZ + li =COLS ! J1 = Z 5 JZ = COL3 : U = K " Nnl1 : L2 = Ll + COL9-2 S FOR 1 = 1 XO ROWS : TS tJl-i.Jl-J) = 5 S CLZ + I 

f$ tJi ' ' f 2 } ~ 3 ^ CL x ' L2 J : Ji = Jl + K : J2 = J2 + K : Ll=Li + K : L2 = L2 + K : HEXT I 

2=J2Ik Z " COL 5A!FOW I=A T ° 8:TSt Jl-i-Ji-i>=5?CL2+l,L2+lJ : TS tjl , J2J =SS CL1, LZ) iJlrJl+KsJ 
Li=Ll + K : L2 = L2 + K : HEXT I 3 S$ = T$ : RETURN 

rt U2tl C J2*{ j -si Ilf ' L i: K * N8 + Z S L2 = L1 + C OL5-X : FOR 1 = 1 XO ROWS : TS U1.J2) =5S CLI, L2, 

. i. Zlt i A 7 A ' Lii5 s J1=J14K = J2=J2+K s LX=L1FK , L2=L24K : NEXT I 
IZ + i " " X 70 8 = TSCJl ' J2) = fLl,L2) S TS (J2 + 1, J2 + 1J =3$ tLl 

1. X = L X + K S I- 2 = X. 2 + K ! M E K T X s SS = T S : R E T II RN 


i LX-X) ! Jl = Ji + K S J2 = 


.... .. iiv „ nr rv „ it'ii « n i!b>=r5:RE 

R e m BCIII3EHGIIMasl3BB3GlIIHSBBI13Ei33MMBi 

BMI tl -r: II " H H - — r in. a . n c — irj c? „ «--■ . . „ ... . — 


M X = X ! J = X 
3 : K-K+COI 
RETURN 


K = C O I 
NEXT 


TS 
I S 3 ! 


FOR 

:TSE 


X-:X TO ROWS + B ! TS C J, JJ =SS tK, KJ : TS C J + NX 


K> = S$ tj, K-MXJ !l=J+COL 


POKE X 9 

,'o 

sir s 

TK=X5 ■ 

T H F N 

2 X X O 


X F 

STK = 

14 

T H E N 

GOSUB 

X 0 3 0 

: GOTO 

2XOO 

XF 

S T K ~~ 

X 3 

T H E H 

GOSUB 

X 0 0 0 

: G O T O 

2XOO 

X F 

STIK“ 

X X 

T H E H 

G O 3 U B 

2 :2 0 O 

: G O T o 

2 X O O 


1 F STK = 7 T H E M G O 3 II B X 3 SO: G O X O 2 X O 0 

IF 5TK = 6 THEM GOSIIB XSOO : GOTO 21O0 

TF STK = .tO THEN GO SUB 1940 : GOTO 2X00 
XF ST IK = 9 THEN GOSIIB 2270 ; GOTO 2X00 

XF ST IK = 15 THEN GO SUB 2 3X0 

X F 3 T IK X = X 5 T H E H R E T U R N 

JIF=4! GOSUB 2730:0=0! IF STKX=X4 THEN Y=Y-8:GOSUB XSIO : RETURN 
X F STK X — X 3 TH E H V = V + 8 S GO 3 U B X 55 X 0 ! R E T U R H 

3 T IK X = X X T H E Ml K = K -- X s G O 3 U B X 5 X 0 ! RETURN 

3 T K X = 7 T H E N K = H -«■ X s G O 3 U B X 55 IBiRET U R M 

3 T K X = 6 T H E N V = V - 8 ! H = K + X : G O Si U B X 5 X 8 : R E T U R M 

S TKX = 1B 1 HEN Y = Y-B i K = K — X ! GOSUB 15X0! RETURN 
3 T IK X = 9 T H E Ml V = V * 8 ! N = N — X ! G O 3 U B X S X O i RET U R N 

3 II K X = 5 T H E N V = V + 8 S K = H + 1 s GOSUB X 5 X 0 ; R E T U R N 


TF 
IF 
IF 
T F 
TF 
TF 

R E T U R H 

rem m g rabbit w a « him 

2f JiciiJTSS;? 'l*.llU% OK 1=1 TO , J=J . c „ t 

R E T U R N 

R E M 

SBIUNR Oj X2X, XOa 8 ! GOSUB Z7IOIFOR 1 = 8 TO O STEP -XlSOUNO O , X2X , XO , T : JTF = X ! GOSUB 2730INE 

G O 3 U B 2 7 3 0 
U P = X -• II P : R E T U R INI 

H8 = B^K = C0LS: .11 = 2 :J2 = COLS S L1 = K*N8 + X S L2=LX + COLS-2 ! FOR I = X TO ROMS : TS ai, L2> =SS UX,J2) 

1 C y - " J " * - » ® ‘ ■ J J - - JL , J x -- X 3 ; J X = a X ♦ K S J2 = J 2 + K s L X = L X + K s L 2 =L2 + K t H EXT X 

i t j i { i 2 = C ° L S 1 ~ F ' ° B 1 = X T ° O : T * e 1 A -L2J=SSC J X,J2) ITS t L 2 + X,L2 + X 3 = S $ t JX-X , JX-XI I J X = J X. + K ; J 

L X = X. X + K 5 L. 2 = I_ 2 + K S Ml E X T Il5S = TS:RE T U R N 

7 1 7 J i 7 2 7 ° 5 s J 1 = 1 = J 2 = COL5 1 : 1 3 = KM W 0 + 2.L2 = LX + COLS - XiFOR I = X T O R O WSlTStLX ~ X , L. X — X 3 = 3 S c J 2 

"II" $ 1 1- X , IL 2 3 = S S * J X , 


2 3 2 O 


J 2 3 : J X = J X + K : J 


J 2 l- K ! LX = L X HI- K ! L 2 = L 2 -I- K ! NEK T I 


:OGiR,ftM :: 


Cl II <=t f 




JN .. EtfUS 


F-^ei 




+ " 5 *• - 6 <1 2 » 8 * - — 9 


2 3 3 0 


2 3 4.0 
2 3 5 O 
2 3 *> O 

2 3 20 
2 3 0 0 
2 3 9 0 
2 4 0 0 
2 4 X 0 
2 4 2 0 
2 4 3 0 
2 4 4- 0 
2 4 Si 0 
2 4 *> 0 
2 4 2 0 
2 4 B 0 

2 4 -9 0 
2 00O 
2 Si X. 0 
2 Si 2 O 
2 S3 3 0 
2 Si 4 0 
2S0 O 
215 0 0 
2 Si 2 0 
2 S a 0 
2 Si 0 0 
2 0 ** 0 
2 0 .1 0 

2 0 2 0 
2 S 3 0 
2 0 4 0 
2 0 Si O 
2 0 0 O 
2 0 2 0 
2 0 a 0 

2 Si 0 0 
2 2 0 0 
2 2 .1 0 
2 22 0 
2 2 3 0 
2 2 4 0‘ 

2 2 Si O 
2 2 0 0 
2 2 2 0 
2 2 Si S3 
2 2 0 O 

2 Si 0 0 
2 Si X O 
2 02 0 


0X-.2 : L2 = COL5 S FOR 1 = 1 TO a : TS (U-l.Ll-U = SS U2 + 1 (J 2 + 1, : TS CL JL , L2, = S$ C JX, 323 : JA = Ji *K : 32 = 

L .1 = L .1 K ; L2=L 2 + K : M E M T 1:3$ = T $ : R I” T U R M 
SiOSUB 2230 : REM 

30,.J,H> 0,04, 30, Si: 003110 2230: FOR 1 = 8 TO « STEP X: SOUND 0, 04, JLO, X : JIF = 2 : GOSUB 2230:NEXT 

0 L 1- C = .1 — A L L C : C = C - JL 

C = C + JL : x E OS t II E M C = o : R E M ®*; 3H ES « MKSBEEiag* 

P O #< E 2 0 0,0 3 C C C S C C + J. , C + X 3 3 ; j = c 
F O R X = X T O © : .J = J -« ■ x 
IF J>5 THEM J=0 
IF ALLC = B THEN J = C 

A = 0LC CIS : POKE ADR IRLS) PEEK (ADR (C$) + JJ ■ MFHT X 

GOSUB 2230 

IF BC.JL = X THEM POKE 19,0 
R E T U R N 

R E M HamillEKXH 31 M =KM 

SSH.MO 0 , S 4 , X O , 0 : GOSUB 2230:EOR X = 8 TO 0 STEP -MSOUHD O, 94, 10, X : JIFrl : GOSUB 2230:NEHT 

POKE 19,0iSS(ll=»r>:IF HHT = 1 THEN S$ tl) =»|J> 

S C C 2 O 8 X .3 = 3 $ C X 3 : S $ C 2 3 = S $ : M$ = 5 $ 

H = 0 s V = B S I- K = - X : E V = - JL : G O S U 0 15X0 8 GOSUB 2230SRETU R M 

A F A = X X © T H E N GOS U B 2 4 0 : H = B ! GOSUB 1510 : GO T O 250 

H = H — X : I p X > = 0 T HI E M 2 5©0 

X — C O L5-X : Y = V 0 : IF Y > = 0 T H E N 2 Si © 0 

Y=ROWS 

E 3 — 0 : J X = X IM 1 U : 3 : Wl 0 = X ; x: F' hh t = O THEM I M 0 = 0 
G 0 S U B 4 2 0 : X N V = , J X ; A = 0 
GOS 1.1 B X 5X0 : Si O X O 2 Si Si 
GOTO 2SO 

72 - .1 i r s/ ^ i ,>R 7XO X4:IF ESC = X THEN 21 = ADR (HD2$) : POKE 2 1.0 , 3 2 4 

DL2“L ?« = ?ESC S 13 ' 3J = CHR * tZiJ » »«-4$ (4 , 43 =CHR$ ( Z2J : A = USR (ADR (HOUS, , T2 , 

XII- 2J2--X THEM GOSUB 4 94 0 

F O R I = 0 T O X : P O K E 755, O: JIF = 2 : GOSUB 2230: P O K E 2 Si S , 2 

3 O I "10 O, X2X — 22*E5C, X0, XO : JIF = 2 : GOSUB 2230: SOUND 0^0, 0,0: NEXT I 
X F Z. 2 = Si T H E M 2 8 Si 0 
POKE 2*3,0 

IF PEEK *.'2 0 3 <50 THEN 2670 

G 0 S U B 4 9 4 0 ; P 0 K E 5 3 2 4 Si , H : P O K E 5 32 4 9, I I 
RETURN 

IWIH T = X - HH T ; S $ C X 3 = ; IE HH T = X THEM S $ C X 3 = " "U" • 

3$ (208.0 =3$ C X 3 : SS <21 = 3$ : HS = 5S 

X = 0 II v = Si : t... X = X ! E V = -- X : Si O S U B X S X 0 : R E T U R N 

F O R D E IL = X T O J I F s T I C K = P E E K C 2 0 3 
3: IF TXCK = PEEK <203 THEN 224 0 
INI E J* T ll> E L : J X F = 2 s R E T U R M 

R e m ■ai^ MuHdM 

R E M ■ EH* 1C naiEOOID* 

r r p 3 © a *i : i> x m «> l s c x. 3 23,0 l. c 1 2 3 

r” = ’' Hax " l,la,< c '“ ,he<rHax -*“ «»>,■* n^^ ih^nax^w aa««^ asm* ine^nax, 

a/mb IhevHEIxrtJW flj,/ r iw J- |hcr< 

^ ^ ^ ^ ^ - Fit:. X IM! H C. A / ,Z 55 f» .!!< : ME M4 = X M T £ A~25 6-M-MP M3 J 

FOR 1 = JL TO 6 


2 3 3 0 
2 3 4 O 
2858 
2 3 3 0 
2 O 2 0 
2880 
2890 
290 0 

2 9 jr. 0 

2920 

2 9 7 «: O 
2 19- 4 0 

295 0 

2 3 3 0 

2 19 2 0 

219-3 0 
2*919 0 

3 O 0 0 

3 0 .1. 0 

3 3 2 0 
3 0 3 0 
3 0 4 0 
3 0 S> (» 
3 0 3 0 
3 0 2 0 
3 0 3 0 
3 0 9 tin 

3 Jl 0 0 
3 X X 0 
3 X 2 0 
3 X 3 0 
3 X 4 O 
3 X S 0 
3 X 3 0 
3 X 2 0 
3 X 3 O 

3 X <9 0 
3 2 0 0 
3 2X0 
3 2 2 0 
3 2 3 0 
3 2 4 0 
3 2 3 0 

3 2 3 0 



PROGRAM 


a 


B iPi IT v I 


jBiPhs 


IF" 





•2 — 


•• ™ 3 - 


-I- 


"> IL C e X 9 "22 X - X 19 

K "A + 22'»I S Y = INT t'K/253) I K = IMT tS-Y»25B) 

IP O n< E A + 2 2«'I X 2 , K 

!P O K E A • « • 2 2 X - 2 # V 
M E K T X 

P O K BE A X 2 3 , ME M4 5 P O K E A + X25, ME M3 
REM 

P 0 K E 2 0 4. , 0 5 P 0 K E 2 0 3 , 3 s P O K E 283,8 
DIM MB1$ CX94J , 8811$ C2329 , 8812$ (269J 

**£! h ra.aw-1 K^nj+SD*- cni^.^ h-hi ♦ e c^rcrri33 * rxsasaa *iKXzaEii] * bge; c . © eii t 1 

rsp i- i>Eij:.^^rsi4C3 bi mwz • 

0 b x $ t ^ 4 , x 0 3 9 = - -mwmiT ■ 

« r Mint- m Hi^Houa »iwi ran EikHgxxa Mwiiciaiu^ nnaacH laahExxsh ii^ncnsho 

IWMILiJS He i»I!!D **"*•* - 

UBIiStl,89)=" !♦ l^ilU J<UHh [V |»»i d» |W 

1 llh CKV^IMf-1 w IWt, C"" 

UBIiS (90,178) =”E^#¥i c» l»<hO*k*»iO» h'»iHyJ< yin yi [V-fhSl-W, QtiDfl H C-i Cif'-i 

•i - c If ti sa^Ch -o 

M B X A © 1.1/5, 267) <« l*«1 “ISK^Kl - C |¥ E-i SCk^Dl -O |V«I /O. <*iW, PE 4HCZ. Dri<y, S ljf 

'^'«i “ 5 0 u~- ■tijP’ 0 #j(|BR> , V b " 

u BUS c 2 © 8 , Z8.D ~ ■ ”1 II y» 1C ynn¥JOUv¥- < 

UBI2S tJL ' 051 3 = "’ C-| V, "VD C "1 < C-I < f'Vk.S C-, C-| DHWS C-l ♦ W <H-| -PHHK C<P-| WWD C-I VV|kD C-I ♦ ♦k, < r~i ffi.5 c 

-I 4MP*-D IC|k.H IC-I "WHIK CV-| 

WB12S t90 ■' 1 /8> =, ’ 1 ^ l> I 1 C-I 1"l’k< c-l »nks C-I »»W2«n D«k5a-| VDk<Oi ¥«kDQi 4Mffc,G fi IMfk, C l=i ♦ ♦k O f'-| vvkH f 

*i ♦♦I fl> i-i Wi #> I-j ♦■nil'll o iF.jH"" 

MB12S ti79,267) ="Hf« Ofi l f. Of, H 1= *■ I? f | Clitll, ty, fytl ♦*- C 1 1 OfjHf, Of, Cf, Of, Hf, DO, 8 ♦„ ri, Ol, Hf, 

<fl PI -■ CMH D 1 X f > H > » ll) ¥l* 1 " " 

Ift = A I> R C M B I © 9 2 R JL = A B> R C V B US) ! RZ = ADR CVBI2S) 

V = IHT tm/256) : K = R1-2S6«V 
P O K E 2 O 6 „ K S P O K E 2 © 7 , V 

V = IM T C R 27256) : H = R 2 - 2 S 6*V 
P O K E 2 © 8,K:P O K E 2 © 9 , V 

R 3 = R + X X S s R 4 = R 3 + JL 

V = X N T C R 3 2 2 5 6 9 : K = R 3 - 2 S ©4*Y 

P O K E R + 9 8 j. K 5 P O K E R + 9 7 , V : P 0 1C E I» + 1 61 , K : P OKE RflOZ, V : POKE R + 174, K : POKE R + 175,V:PO |< E R + I f) 

4 , K ; P O K E R -§■ X 9 S , V 

IP O K E R + S 8 , H s P O K E R -«- 5 9 , V 

V = IMT 014/256) : K = F14-256*Y 

P O K E R + JL © 8 , K s P O K E R + .1. © 9 , Y I P O K E R -C JL 5 9 , K ; P O K E R + 168 , Y : P O KE R + 65, K : POKE R+66 V 

“> * H P B * L P ® C JL 2 5 S V B 1 1~ D © C X , 11)=" hBaOBOEIN \E* * * 

* -- © p R C M B X & » 8 P O K E A + X , ME M4 : P O K E A + fi , ME M3 

V-IMT C A/- 2563 S Z = A-256«Y 

A = ADR (MBILOS) 1 POKE A + 2 , Y ! POKE 0 + 4, Z i 50UMD 0,0,0,©: SOUND X , © „ 8 , © 

K = 1ISR CA3 

P..CM ESC© C992) ,, C764S CX933 , B764S (193) , T © C2081) , BNK$ (39) , A © (20) , MUS© CIS) S MUS© = , "C3Ctf 1 * COMP 

<s/-tr' 

#>XM BHD© (25) s B hd © ~ " " R ir !■> UH^ oMU 4 |> nMMhh k K3 1-* - J> - 1 ^-K HErLil HrMITJMjiarr «:c|fln -O 1 " ■ 

0 1 M T K T 9 C JL J 1 , C © < © I , C U R © C JL 6 9 , C U R 2 S (16) „ C II R 3 © C 1 6 ) „ B C U R © C X 6 .9 , STAR© CBJ , Z © C 1. 9 :Z1 = ADRCZ«) 

it 2 = C I N r C Z X / 4 © T9 6 9 + X 9 *04 0 96-ZX — X 9 

#> X M Z Z X X © C Z 2 9 , P MR A M© C 2 © 4 9 9 , S© C 2 0 8 X 9 

P 1 M MO %> © C 3 9 9 „ D I... 4 © « X © 9 , D l. 2 © © C X 2 9 ,DL22$C26) „ HD X © « X 609 , HD 2 © C X 689 , H© CJ © © 9 

p e m ■ffirazm , »iaa:» a i a.a ra laora liaa'iixii 

ESC© cx, 889 i mju ■ uu i ■ n a ■«« 

feirtaiiiciBij"' 
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- 6 - 


-7- 
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3 2: 7 O 

3 2 8 O 

32 9(1 

3 3 0 O 

3 3 X O 
3 3 2 & 

3330 
3 3 4 0 

3380 ES 


no in laareij" 

v ° : * = ' ’ a aasroij * .' ■■ "■ ■ ro < <<« ft*— r_v iMuaaa/, -i -m-g ■* * *«ei i_ 

= ” U " ^ •* ■* "" '* UOTa 1 ■ ■“■SC™" ■' " ». i-’wnf h Kji: f, 

<^ eJ ~ l ‘ Ha, - , “ JLi ham- p ei^ixaia - j rr ji t- re»: Mm hi hi hi hi hi hi hi obo- 

tfr * vxrarax-I - -■ ° 5 = ' >EiajL ^^^ *' *&* : K ' 1 «*■ J =JCG e 0 - 4 000- ram hju-ijjjjjoho- ice r a .x i- j- p ear - o ea 

E5C$t 4 ® A •- s A 2 5 = “ ’ **HI XVI Vi»CJ03O3>* - v-i ys - , y-.| <-u.i 

c us^hm™ 

a: S c & « 5 65, 5 8 5 S = C H R $ CASHS 
FSCS (689, 776) ="UUU ►. ’ t-WyMXEEiaSI'l 1*0134 


3 3 6 O E 5 C 5 C 7 7 7,8 6 A J 


3 3 70 

3 3 8 0 
3 3 0 0 
340(1 
3 A A 0 

3 4 2 0 
3 4 38 

3 4 A 0 
3- -4 Eil 0 
3 4 6 O 
3470 
3 4 8 0 

3400 

3 5 O O 
35AO 
3520 
3 S 3 O 
3 540 
3550 
35 8 0 
3 5 8 5 
3 5 70 
3 5 8 8 
3 5 0 0 
3 e 8 O 

3 0 A 0 

3 0 2O 

3 0 3 0 


< 4 A** C * : M WffB<f,BI f f < Z[5M : < < -*- * < * <1 :< 5- 1 e SOI ix < 4 ocnux ? + < i:< ix404 <^» <» 

u<^i u ” >,hJ '^ 04 -* CKI I 8WW...M- 1 HIM I I :kh *4 1: *333:4 bccuue 

eIcJ S”; «« =CH^ cJI;" ,: iw 

R E M WM 'xt j 1 * ; ivi »*j»ai3MigK^^ 

/S SCI 7 I ;v/ Ue sci “a eCHCffie : *OH Cr- r- *_ . C-. C 2 C« 0 C 4 7 a| E«-p< ■*-+ a & c SEC *3!,* H3Z+ < > 

C 764$ (22 , 22) =CHRS (34) : C764S (86, 80S =CHR$ C34S 

** HCMCCRCE VET Home" ; " C ~ * C2Cy: 9C * 7 XJC ,NB c ' 3!LJ *CC*« A -OCP UCI V 3 VCCCCBK zaixilice 

C 2 fi 4 ® ( 1 6 1-192)=' 'CJCOaF H DCCG 50" 

7 ^-^ d!I® 4S * 1 <:XJ = "^" = B764 ® « 92) =--44” : 5764$ (2) =87045 

NEK? X 1 = 0 T<> - t -* A:IF PEEK CZi+IJ =128 THEM POKE 0 + 1,1 

FOKE 0+182, 7, POKE 0 + 142, H:POKE 0 + 143, H = POKE 0 + 134, 5:POKE 0 + 135, 5: POKE 0 + 52,8:POKE 0 + 1 

T??po£e X IZaV,T K * A + 28 ' 6!POKE fl + 5Z ' 6!POKE 0 (‘150, 6 : POKE* 0 + 167, 2 : POKE 0 + 103, 2 ; POKE 0 + 38 

- - — - 

BNK * K1) =" " ■ BNK$ (39) =BHK$ CIS : BHK$ 12) =BNK$ 

HE Ml - X M T C S 0 7 256) s ME M2 = X M TCSO-2 5 6»ME M 1 S 

P Z "f ‘” =,,¥ " iP MH MS (2048) =P MR 0 11$ Cl):PM B 0M$tZ)=PMR0M$ 

MO »■ E - A ! F L 0 0 = A : G O S U 8 A 69(1:C$ = "X h H s , B** : El 0 0 = 2 
R E M 

H> MJL = P E E IK C I> L + 4 2 * A O* MO l» E) : f> M2 = PEEK(BL + A 3 + 4 O #MO DE) 

mo m 5 - ■ * i> ii.rB.ji ciHEriaicriahiigEjo^ HManiM* ■ ■ 

^ l ft ®" s BL 20S='*P ■■■■■■■■ nflffi" ; l)L22$="l, i» * n >■ m n m« ■■■■■,■■ 

x ! 2V3 ** 2XX ■ ♦^^BOEoar-*, .> B4HiB3Er2/4 ■ 42w,/?- t ^AEE»aTr" 

/24C .«+ ■ 27 5 ! $tiwi. ! . 2j3¥flB3Crf:2 ! 3K W C!2! » 4 « 2 ^K*«^ K 2 -3K4,). 5 , 4)«/ , 

Z 3 •- ^ > ■ «4^>^», T:? , r ^, .»* 

r?4 5S =cip* “ 7 “ 4 ^ 52X34W. , MO A $ Cl 45 

MI>2'S (75,75) =CHR$ (34) : MD2$ (141,141) =CHR$ (343 : HD2$ C113.113) =CHR$ (1561 : MD1$ (71, 


71) =CHR$ C 


=* II -f O G Fi iPt Ml :: C H O R, JN » IBAi £3 




f-" #=» e, 


.. 7 I - 


3 4 J 

3 6 4 o r e m ■saaiiiiiiiiifca 

3 C> 5 O C B A 3 E = A »> R t P MR A MS J ! P O K E 54273, IN T (CBASE/256) 

3 6 6 0 3 T AR$ = >1 S Z S Z Z S ZJ 8 BCUR$ = " T V" eMMCipir ^ »»¥ »¥¥ 99" " 

3670 G05UB 2490 : TRAP 40000 C GOTO 1170 V 

3000 GRAPHICS IS ! POKE 712, 60 I POKE 708, 42 : POSITION 2,5:? tt6; "REMOVE CARTRIDGE" : POSITION 2 * 7 
;? tt6;"AND REBOOT DISK" 

3 6 S3 0 G O T O 3 6 S3 0 

3 7 0 O E N l> S 

3 7 JL O IK Z = PE E K C203) ! P O KE 203, 0 

3720 POKE 53248, 0 ! POKE 53249, 0 S POKE 53250, 0 : GRAPHICS 0 : POKE 710, 14 : POKE 709, J-4 : A — 0 : POKE 71. 
Z , JL Z 0 

3730 FOR 1 = 0 TO Z: POSITION 0,1: FOR J = 0 TO 39:? CHRS 1160) J S NEXT J : MEKT I 

3 7 4 0 POSITION 8 , JL : ? « • EEEiaSO!^ 1 'J CHRS CZ9) J CHR$ (29) : POKE 709,8:? i IF KF = 1 THEN 

HF = 0 : GOTO 38.10 


3 7 5 0 ? ■ " Ins e r 1: y o up screen s a v e <1 » sk" 

3760 ? " i n Jt: o til i. sk drive ** JL . Then" 

3788 IF PEEK C764J =255 THEN 3780 

3790 ? CHRS 128) J CHRS (28) } CHRS (156) J CHRS (156) J CHRS (156) J 
3800 IF PEEK (764) =28 THEM POKE 764, 255: GOTO 4Z80 

38.10 POKE 764, 255 i TRAP 4710: OPEN **Z , 6 , O , "D ! PICTURE .???"! TRAP 40000 
38ZO INPUT »2jA$:IF AS (5, 10) ="FREE S" THEM 3860 

38 3 0 A = A + 1 : I F A = 1 THEN POSITION 3,4:? * ’ S ? 

3840 POKE 85,5S IF A<10 THEM POKE 85,6 

3850 ? A; ,, J| "; AS (2,10) ; " , AS (11,17) : GOTO 38Z0 

3860 IF A = 0 THEM POKE 85,1.0:? ■"MO FILES FOUND!" 

3870 ? ; POKE 85,9:? AS (1,16) : SEC=VAL (AS (1,3)) ! CLOSE »2 

3 8 8 0 ? : ? ■ > ■OCa□SQ■Q^liB3@■ , 'SPOKE 764, 255 -.POKE 752,1 

3890 ? ” O SAVE 0 LOOP 0 DELETE □ EMIT") 


3 ^ e o 

Jl = 

P E E 

K (764) : 

I F J = 2 5 5 T H E N 3 9 0 0 


3 ^ X O 

IF 

J < > 3 O A N D 

•JO 31. AMD JO 26 AMD J<>24 THEM POKE 764, 

255 : GOTO 

3 S :Z O 

IF 

Ji = 

2 -ft 

T IH E N 

GOTO 4280 


3 S 3 O 

IF 

A“ 

o 

A N l> J 

=30 THEN POKE 764, 255: GOTO 39O0 


3 S 4 O 

IF 

A = 

o 

A M D -J 

=26 THEN POKE 764 , 255 : GOTO 390O 


3 S 5» O 

P O K E 

76 

-ft , Si 5> E> 

: ? CHIRS (28) ; CHRS (156) J CHRS (156) i 


3 S O O 

X F 


31 

T H E N 

POKE 712,44:? ’ “ BBHtf;l‘l,=IIS l l Jl S ^TTH' ' 


3 S 7 O 

TIP 

Ji = 

3 0 

T H E M 

p o k e 712,282:? ■ ■ ■rrosTMmaoi snrwi n ■ : ? igoto 

4- 350 

3 s e o 

X F 

^P = 

26 

T' H E M 

P O It E 7 12,70:? " Ttlall Sii aMiT'a * Ci: ■ ' ■ : ? : GOTO 4720 

3 3 3 «CT 

XF 

SE 

e > 

= 4 + MODE*12 THEM 4.030 



4 o o o ? : ? ■ ■ f mn m iSTi m a M 4^ riiiiiMiM x am-iarriaaB * •:? please delete ■ ■ s 4 + mo d e*i 2 - s e c j 

1 9 , 0 

4.01.0 IF PIEEIK (19) <3 THEM 4810 

4 0 2 O K F = 1 : ? * * rs ■ • 8 P O K E 7 1 2 , 1 4 - 8 L K *14 8 GOTO 3 72 0 

4830 ? " Enter 3 letters op nuMbers" : ? to save screen; PICTURE. " : 

404O FOR J = JL TO 38? CHRS (30) J S MEKT J 
4 O 5 O O P E H **2 ,4,0,"KS"S F 0 R I = 1 T O 3 

4 0 6 O G E T tit. 2 , M : I F X < > 1 2 6 A N D H < > 1 5 6 AMD M < >27 T H E N 4100 

4070 IF K = 2 7 THEN CLOSE »2sKF = lSGO TO 3710 

4880 IF 1=1 THEM 4100 

4090 ? CHRS (30) ; "J CHRS (30) J 8 1 = 1 — JL S GOTO 406 0 

4108 IF X < 4 8 OR M> 90 THEM 4 06 0 

4 1 1 0 I F K > 5 7 A N D K < 6 5 T HI E M 4 0 6 0 

4.120 ? CHRS (K) J 8 AS (1 + 11, 1 + 111 =CHRS (X) 8 NEXT I: CLOSE «*2 

4 1. 3 O A S C .1 , JL .1 * = ' " D JL 8 P I C T U R E . « " 8 ? •* " S ? I ? " *• J AS (4, 14) S 
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P O K E 


